home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / b / ckmxla.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-06-30  |  35.3 KB  |  779 lines
  1. /* $Id: ckmxla.c,v 1.6 91/12/15 23:18:06 rick Exp $
  2.  * $Source: /uw/mackermit/RCS/ckmxla.c,v $
  3.  *------------------------------------------------------------------
  4.  * $Log:    ckmxla.c,v $
  5.  * Revision 1.6  91/12/15  23:18:06  rick
  6.  * ut9
  7.  * 
  8.  * Revision 1.5  91/10/22  11:56:16  rick
  9.  * Fixup includes.
  10.  * 
  11.  * Revision 1.4  91/10/21  21:43:58  fdc
  12.  * Make sure all sources lines are < 80.
  13.  * Update with a year's worth of changes from Unix version,
  14.  * but use only three character sets.  Fix the tables, functions,
  15.  * and tables of functions.  And the comments.  Etc etc.
  16.  * 
  17.  * Revision 1.3  91/10/03  12:43:03  rick
  18.  * UT(5)
  19.  * 
  20.  *------------------------------------------------------------------
  21.  * $Endlog$
  22.  */
  23. char *xlav = "Macintosh Character Set Translation 5A(012), 2 Feb 93";
  24.  
  25. /*  C K M X L A  */
  26.  
  27. /*  C-Kermit tables and functions supporting character set translation.  */
  28. /*  Macintosh-only version */
  29. /*
  30.   Author: Frank da Cruz (fdc@columbia.edu, FDCCU@CUVMA.BITNET),
  31.   Columbia University Center for Computing Activities.
  32.   Copyright (C) 1985, 1992, Trustees of Columbia University in the City of New
  33.   York.  Permission is granted to any individual or institution to use this
  34.   software as long as it is not sold for profit.  This copyright notice must be
  35.   retained.  This software may not be included in commercial products without
  36.   written permission of Columbia University.
  37. */
  38.  
  39. #ifndef NULL
  40. #define NULL 0
  41. #endif
  42.  
  43. #include "ckcdeb.h"            /* Includes... */
  44. #include "ckcker.h"
  45. #include "ckucmd.h"            /* Needed for struct keytab */
  46. #include "ckmdef.h"
  47. #include "ckmptp.h"            /* ckm* Prototypes */
  48. #include "ckcxla.h"
  49. #include "ckmxla.h"
  50.  
  51. /* Character set translation data and functions */
  52.  
  53. extern int zincnt;
  54. extern char *zinptr;
  55. extern int zoutcnt;
  56. extern char *zoutptr;
  57.  
  58. int tslevel  = TS_L0;            /* Transfer syntax level (0,1,2) */
  59. int tcharset = TC_TRANSP;        /* Transfer syntax character set */
  60. int fcharset = FC_APPQD;        /* Local file character set */
  61. int tcsr     = FC_USASCII;        /* Remote terminal character set */
  62. int tcsl     = FC_APPQD;        /* Local terminal character set */
  63. int language = L_USASCII;        /* Language */
  64.  
  65. /* This list is indexed by the transfer character set number. */
  66. struct csinfo tcsinfo[] = {              /* Transfer character-set info */
  67. /*  Name                 size code      designator  alphabet        */
  68.     "Transparent",        256, TC_TRANSP,  "",       AL_UNK,   "transparent",
  69.     "US ASCII 7-bit",     128, TC_USASCII, "",       AL_ROMAN, "ascii",
  70.     "Latin-1 ISO 8859-1", 256, TC_1LATIN,  "I6/100", AL_ROMAN, "latin1"
  71. };
  72. int ntcsets = (sizeof(tcsinfo) / sizeof(struct csinfo));
  73.  
  74. struct keytab tcstab[] = {        /* Keyword table for */
  75.     "ascii",         TC_USASCII, 0,    /* SET TRANSFER CHARACTER-SET */
  76.     "latin1-iso",    TC_1LATIN,  0,
  77.     "transparent",   TC_TRANSP,  0
  78. };
  79. int ntcs = (sizeof(tcstab) / sizeof(struct keytab));
  80.  
  81. /* Grrr... Had to back off on moving this to ckmxla.h because that file */
  82. /* is included by more than one module, so link complains about multiple */
  83. /* definitions of _fcsinfo, _fcstab, etc. */
  84.  
  85. /* File character set information structure, indexed by character set code, */
  86. /* as defined in ckmxla.h.  This table must be in order of file character */
  87. /* set number! */ 
  88.  
  89. struct csinfo fcsinfo[] = { /* File character set information... */
  90.   /* Descriptive Name              Size  Designator */
  91.     "US ASCII",         128, FC_USASCII, NULL, AL_ROMAN, "ascii",
  92.     "ISO Latin-1",      256, FC_1LATIN,  NULL, AL_ROMAN, "latin1",
  93.     "Macintosh Latin",  256, FC_APPQD,   NULL, AL_ROMAN, "macintosh-latin"
  94. };    
  95.  
  96. /* Local file character sets */
  97.  
  98. struct keytab fcstab[] = { /* Keyword table for 'set file character-set' */
  99.  
  100. /* Keyword             Value       Flags */
  101.     "apple-quickdraw",  FC_APPQD,   CM_INV,  /* Macintosh Quickraw */
  102.     "ascii",            FC_USASCII, 0,    /* ASCII */
  103.     "latin-1",          FC_1LATIN,  0,    /* ISO Latin Alphabet 1 */
  104.     "macintosh-latin",  FC_APPQD, 0,    /* "Extended Mac Latin" */
  105.  
  106. };
  107. int nfilc = (sizeof(fcstab) / sizeof(struct keytab)); /* size of this table */
  108.  
  109. /*
  110.  Languages:
  111.  
  112.  This table serves two purposes.  First, it allows C-Kermit to have a
  113.  SET LANGUAGE command, which automatically selects the associated file
  114.  character set and transfer character set.  Second, it allows the program
  115.  to apply special language-specific rules when translating from a character
  116.  set that contains national characters into plain ASCII, like German umlaut-a
  117.  becomes ae.
  118. */
  119.  
  120. struct langinfo langs[] = {
  121. /*  Language code   File Charset Xfer Charset Name */
  122.     L_USASCII,      FC_USASCII,  TC_USASCII,  "ASCII (American English)",
  123.     L_DANISH,       FC_APPQD,  TC_1LATIN,   "Danish",
  124.     L_DUTCH,        FC_APPQD,  TC_1LATIN,   "Dutch",
  125.     L_FINNISH,      FC_APPQD,  TC_1LATIN,   "Finnish",
  126.     L_FRENCH,       FC_APPQD,  TC_1LATIN,   "French",
  127.     L_GERMAN,       FC_APPQD,  TC_1LATIN,   "German",
  128.     L_HUNGARIAN,    FC_APPQD,  TC_1LATIN,   "Hungarian",
  129.     L_ITALIAN,      FC_APPQD,  TC_1LATIN,   "Italian",
  130.     L_NORWEGIAN,    FC_APPQD,  TC_1LATIN,   "Norwegian",
  131.     L_PORTUGUESE,   FC_APPQD,  TC_1LATIN,   "Portuguese",
  132.     L_SPANISH,      FC_APPQD,  TC_1LATIN,   "Spanish",
  133.     L_SWEDISH,      FC_APPQD,  TC_1LATIN,   "Swedish",
  134.     L_SWISS,        FC_APPQD,  TC_1LATIN,   "Swiss"
  135. };
  136. int nlangs = (sizeof(langs) / sizeof(struct langinfo));
  137.  
  138. /*
  139.   Keyword table for the SET LANGUAGE command.
  140.   Only a few of these (German, Scandinavian, etc) actually do anything.
  141.   The language is used to invoke special translation rules when converting
  142.   from an 8-bit character set to ASCII; for example, German u-diaeresis
  143.   becomes "ue", Dutch y-diaeresis becomes "ij".  Languages without associated
  144.   rules are invisible (CM_INV).
  145. */
  146. struct keytab lngtab[] = {
  147.     "ascii",            L_USASCII, CM_INV,
  148.     "danish",           L_DANISH, 0,
  149.     "dutch",            L_DUTCH, 0,
  150.     "english",          L_USASCII, CM_INV,
  151.     "finnish",          L_FINNISH, 0,
  152.     "french",           L_FRENCH, CM_INV,
  153.     "german",           L_GERMAN, 0,
  154.     "hungarian",        L_HUNGARIAN, CM_INV,
  155.     "icelandic",        L_ICELANDIC, 0,
  156.     "italian",          L_ITALIAN, CM_INV,
  157. #ifdef KANJI
  158.     "japanese",         L_JAPANESE, CM_INV,
  159. #endif /* KANJI */
  160.     "norwegian",        L_NORWEGIAN, 0,
  161.     "none",             L_USASCII, 0,
  162.     "portuguese",       L_PORTUGUESE, CM_INV,
  163. #ifdef CYRILLIC
  164.     "russian",          L_RUSSIAN, 0,
  165. #endif /* CYRILLIC */
  166.     "spanish",          L_SPANISH, CM_INV,
  167.     "swedish",          L_SWEDISH, 0
  168. };
  169. int nlng = (sizeof(lngtab) / sizeof(struct keytab)); /* how many languages */
  170.  
  171. /* Translation tables ... */
  172.  
  173. /*
  174.   Note, many more can and should be added, space permitting!  Presently we
  175.   have only ASCII and Latin-1 as transfer character sets and ASCII, Latin-1,
  176.   and the Adobe-extended-Macintosh set as file character sets.  For each pair
  177.   of (file,transfer) character sets, we need two translation functions, one
  178.   for sending, one for receiving.  It is recommended that functions and tables
  179.   for all computers be included in this file, perhaps within #ifdef's, so that
  180.   corrections need be made only in one place.
  181. */
  182.  
  183. /* Here is the first table, fully annotated... */
  184.  
  185. CHAR
  186. yl1as[] =  {  /* ISO 8859-1 Latin Alphabet 1 to US ASCII */
  187.       /*  Source character    Description               => Translation */
  188.       /*  Dec row/col Set                                           */
  189.   0,  /*  000  00/00  C0 NUL  Ctrl-@                    =>  (self)  */
  190.   1,  /*  001  00/01  C0 SOH  Ctrl-A                    =>  (self)  */
  191.   2,  /*  002  00/02  C0 STX  Ctrl-B                    =>  (self)  */
  192.   3,  /*  003  00/03  C0 ETX  Ctrl-C                    =>  (self)  */
  193.   4,  /*  004  00/04  C0 EOT  Ctrl-D                    =>  (self)  */
  194.   5,  /*  005  00/05  C0 ENQ  Ctrl-E                    =>  (self)  */
  195.   6,  /*  006  00/06  C0 ACK  Ctrl-F                    =>  (self)  */
  196.   7,  /*  007  00/07  C0 BEL  Ctrl-G                    =>  (self)  */
  197.   8,  /*  008  00/08  C0 BS   Ctrl-H                    =>  (self)  */
  198.   9,  /*  009  00/09  C0 HT   Ctrl-I                    =>  (self)  */
  199.  10,  /*  010  00/10  C0 LF   Ctrl-J                    =>  (self)  */
  200.  11,  /*  011  00/11  C0 VT   Ctrl-K                    =>  (self)  */
  201.  12,  /*  012  00/12  C0 FF   Ctrl-L                    =>  (self)  */
  202.  13,  /*  013  00/13  C0 CR   Ctrl-M                    =>  (self)  */
  203.  14,  /*  014  00/14  C0 SO   Ctrl-N                    =>  (self)  */
  204.  15,  /*  015  00/15  C0 SI   Ctrl-O                    =>  (self)  */
  205.  16,  /*  016  01/00  C0 DLE  Ctrl-P                    =>  (self)  */
  206.  17,  /*  017  01/01  C0 DC1  Ctrl-Q                    =>  (self)  */
  207.  18,  /*  018  01/02  C0 DC2  Ctrl-R                    =>  (self)  */
  208.  19,  /*  019  01/03  C0 DC3  Ctrl-S                    =>  (self)  */
  209.  20,  /*  020  01/04  C0 DC4  Ctrl-T                    =>  (self)  */
  210.  21,  /*  021  01/05  C0 NAK  Ctrl-U                    =>  (self)  */
  211.  22,  /*  022  01/06  C0 SYN  Ctrl-V                    =>  (self)  */
  212.  23,  /*  023  01/07  C0 ETB  Ctrl-W                    =>  (self)  */
  213.  24,  /*  024  01/08  C0 CAN  Ctrl-X                    =>  (self)  */
  214.  25,  /*  025  01/09  C0 EM   Ctrl-Y                    =>  (self)  */
  215.  26,  /*  026  01/10  C0 SUB  Ctrl-Z                    =>  (self)  */
  216.  27,  /*  027  01/11  C0 ESC  Ctrl-[                    =>  (self)  */
  217.  28,  /*  028  01/12  C0 FS   Ctrl-\                    =>  (self)  */
  218.  29,  /*  029  01/13  C0 GS   Ctrl-]                    =>  (self)  */
  219.  30,  /*  030  01/14  C0 RS   Ctrl-^                    =>  (self)  */
  220.  31,  /*  031  01/15  C0 US   Ctrl-_                    =>  (self)  */
  221.  32,  /*  032  02/00     SP   Space                     =>  (self)  */
  222.  33,  /*  033  02/01  G0 !    Exclamation mark          =>  (self)  */
  223.  34,  /*  034  02/02  G0 "    Doublequote               =>  (self)  */
  224.  35,  /*  035  02/03  G0 #    Number sign               =>  (self)  */
  225.  36,  /*  036  02/04  G0 $    Dollar sign               =>  (self)  */
  226.  37,  /*  037  02/05  G0 %    Percent sign              =>  (self)  */
  227.  38,  /*  038  02/06  G0 &    Ampersand                 =>  (self)  */
  228.  39,  /*  039  02/07  G0 '    Apostrophe                =>  (self)  */
  229.  40,  /*  040  02/08  G0 (    Left parenthesis          =>  (self)  */
  230.  41,  /*  041  02/09  G0 )    Right parenthesis         =>  (self)  */
  231.  42,  /*  042  02/10  G0 *    Asterisk                  =>  (self)  */
  232.  43,  /*  043  02/11  G0 +    Plus sign                 =>  (self)  */
  233.  44,  /*  044  02/12  G0 ,    Comma                     =>  (self)  */
  234.  45,  /*  045  02/13  G0 -    Hyphen, minus sign        =>  (self)  */
  235.  46,  /*  046  02/14  G0 .    Period, full stop         =>  (self)  */
  236.  47,  /*  047  02/15  G0 /    Slash, solidus            =>  (self)  */
  237.  48,  /*  048  03/00  G0 0    Digit 0                   =>  (self)  */
  238.  49,  /*  049  03/01  G0 1    Digit 1                   =>  (self)  */
  239.  50,  /*  050  03/02  G0 2    Digit 2                   =>  (self)  */
  240.  51,  /*  051  03/03  G0 3    Digit 3                   =>  (self)  */
  241.  52,  /*  052  03/04  G0 4    Digit 4                   =>  (self)  */
  242.  53,  /*  053  03/05  G0 5    Digit 5                   =>  (self)  */
  243.  54,  /*  054  03/06  G0 6    Digit 6                   =>  (self)  */
  244.  55,  /*  055  03/07  G0 7    Digit 7                   =>  (self)  */
  245.  56,  /*  056  03/08  G0 8    Digit 8                   =>  (self)  */
  246.  57,  /*  057  03/09  G0 9    Digit 9                   =>  (self)  */
  247.  58,  /*  058  03/10  G0 :    Colon                     =>  (self)  */
  248.  59,  /*  059  03/11  G0 ;    Semicolon                 =>  (self)  */
  249.  60,  /*  060  03/12  G0 <    Less-than sign            =>  (self)  */
  250.  61,  /*  061  03/13  G0 =    Equals sign               =>  (self)  */
  251.  62,  /*  062  03/14  G0 >    Greater-than sign         =>  (self)  */
  252.  63,  /*  063  03/15  G0 ?    Question mark             =>  (self)  */
  253.  64,  /*  064  04/00  G0 @    Commercial at sign        =>  (self)  */
  254.  65,  /*  065  04/01  G0 A    Letter A                  =>  (self)  */
  255.  66,  /*  066  04/02  G0 B    Letter B                  =>  (self)  */
  256.  67,  /*  067  04/03  G0 C    Letter C                  =>  (self)  */
  257.  68,  /*  068  04/04  G0 D    Letter D                  =>  (self)  */
  258.  69,  /*  069  04/05  G0 E    Letter E                  =>  (self)  */
  259.  70,  /*  070  04/06  G0 F    Letter F                  =>  (self)  */
  260.  71,  /*  071  04/07  G0 G    Letter G                  =>  (self)  */
  261.  72,  /*  072  04/08  G0 H    Letter H                  =>  (self)  */
  262.  73,  /*  073  04/09  G0 I    Letter I                  =>  (self)  */
  263.  74,  /*  074  04/10  G0 J    Letter J                  =>  (self)  */
  264.  75,  /*  075  04/11  G0 K    Letter K                  =>  (self)  */
  265.  76,  /*  076  04/12  G0 L    Letter L                  =>  (self)  */
  266.  77,  /*  077  04/13  G0 M    Letter M                  =>  (self)  */
  267.  78,  /*  078  04/14  G0 N    Letter N                  =>  (self)  */
  268.  79,  /*  079  04/15  G0 O    Letter O                  =>  (self)  */
  269.  80,  /*  080  05/00  G0 P    Letter P                  =>  (self)  */
  270.  81,  /*  081  05/01  G0 Q    Letter Q                  =>  (self)  */
  271.  82,  /*  082  05/02  G0 R    Letter R                  =>  (self)  */
  272.  83,  /*  083  05/03  G0 S    Letter S                  =>  (self)  */
  273.  84,  /*  084  05/04  G0 T    Letter T                  =>  (self)  */
  274.  85,  /*  085  05/05  G0 U    Letter U                  =>  (self)  */
  275.  86,  /*  086  05/06  G0 V    Letter V                  =>  (self)  */
  276.  87,  /*  087  05/07  G0 W    Letter W                  =>  (self)  */
  277.  88,  /*  088  05/08  G0 X    Letter X                  =>  (self)  */
  278.  89,  /*  089  05/09  G0 Y    Letter Y                  =>  (self)  */
  279.  90,  /*  090  05/10  G0 Z    Letter Z                  =>  (self)  */
  280.  91,  /*  091  05/11  G0 [    Left square bracket       =>  (self)  */
  281.  92,  /*  092  05/12  G0 \    Reverse slash             =>  (self)  */
  282.  93,  /*  093  05/13  G0 ]    Right square bracket      =>  (self)  */
  283.  94,  /*  094  05/14  G0 ^    Circumflex accent         =>  (self)  */
  284.  95,  /*  095  05/15  G0 _    Underline, low line       =>  (self)  */
  285.  96,  /*  096  06/00  G0 `    Grave accent              =>  (self)  */
  286.  97,  /*  097  06/01  G0 a    Letter a                  =>  (self)  */
  287.  98,  /*  098  06/02  G0 b    Letter b                  =>  (self)  */
  288.  99,  /*  099  06/03  G0 c    Letter c                  =>  (self)  */
  289. 100,  /*  100  06/04  G0 d    Letter d                  =>  (self)  */
  290. 101,  /*  101  06/05  G0 e    Letter e                  =>  (self)  */
  291. 102,  /*  102  06/06  G0 f    Letter f                  =>  (self)  */
  292. 103,  /*  103  06/07  G0 g    Letter g                  =>  (self)  */
  293. 104,  /*  104  06/08  G0 h    Letter h                  =>  (self)  */
  294. 105,  /*  105  06/09  G0 i    Letter i                  =>  (self)  */
  295. 106,  /*  106  06/10  G0 j    Letter j                  =>  (self)  */
  296. 107,  /*  107  06/11  G0 k    Letter k                  =>  (self)  */
  297. 108,  /*  108  06/12  G0 l    Letter l                  =>  (self)  */
  298. 109,  /*  109  06/13  G0 m    Letter m                  =>  (self)  */
  299. 110,  /*  110  06/14  G0 n    Letter n                  =>  (self)  */
  300. 111,  /*  111  06/15  G0 o    Letter o                  =>  (self)  */
  301. 112,  /*  112  07/00  G0 p    Letter p                  =>  (self)  */
  302. 113,  /*  113  07/01  G0 q    Letter q                  =>  (self)  */
  303. 114,  /*  114  07/02  G0 r    Letter r                  =>  (self)  */
  304. 115,  /*  115  07/03  G0 s    Letter s                  =>  (self)  */
  305. 116,  /*  116  07/04  G0 t    Letter t                  =>  (self)  */
  306. 117,  /*  117  07/05  G0 u    Letter u                  =>  (self)  */
  307. 118,  /*  118  07/06  G0 v    Letter v                  =>  (self)  */
  308. 119,  /*  119  07/07  G0 w    Letter w                  =>  (self)  */
  309. 120,  /*  120  07/08  G0 x    Letter x                  =>  (self)  */
  310. 121,  /*  121  07/09  G0 y    Letter y                  =>  (self)  */
  311. 122,  /*  122  07/10  G0 z    Letter z                  =>  (self)  */
  312. 123,  /*  123  07/11  G0 {    Left curly bracket        =>  (self)  */
  313. 124,  /*  124  07/12  G0 |    Vertical bar              =>  (self)  */
  314. 125,  /*  125  07/13  G0 }    Right curly bracket       =>  (self)  */
  315. 126,  /*  126  07/14  G0 ~    Tilde                     =>  (self)  */
  316. 127,  /*  127  07/15     DEL  Delete, Rubout            =>  (self)  */
  317. UNK,  /*  128  08/00  C1                                =>  UNK     */
  318. UNK,  /*  129  08/01  C1                                =>  UNK     */
  319. UNK,  /*  130  08/02  C1                                =>  UNK     */
  320. UNK,  /*  131  08/03  C1                                =>  UNK     */
  321. UNK,  /*  132  08/04  C1 IND                            =>  UNK     */
  322. UNK,  /*  133  08/05  C1 NEL                            =>  UNK     */
  323. UNK,  /*  134  08/06  C1 SSA                            =>  UNK     */
  324. UNK,  /*  135  08/07  C1 ESA                            =>  UNK     */
  325. UNK,  /*  136  08/08  C1 HTS                            =>  UNK     */
  326. UNK,  /*  137  08/09  C1                                =>  UNK     */
  327. UNK,  /*  138  08/10  C1                                =>  UNK     */
  328. UNK,  /*  139  08/11  C1                                =>  UNK     */
  329. UNK,  /*  140  08/12  C1                                =>  UNK     */
  330. UNK,  /*  141  08/13  C1 RI                             =>  UNK     */
  331. UNK,  /*  142  08/14  C1 SS2                            =>  UNK     */
  332. UNK,  /*  143  08/15  C1 SS3                            =>  UNK     */
  333. UNK,  /*  144  09/00  C1 DCS                            =>  UNK     */
  334. UNK,  /*  145  09/01  C1                                =>  UNK     */
  335. UNK,  /*  146  09/02  C1                                =>  UNK     */
  336. UNK,  /*  147  09/03  C1 STS                            =>  UNK     */
  337. UNK,  /*  148  09/04  C1                                =>  UNK     */
  338. UNK,  /*  149  09/05  C1                                =>  UNK     */
  339. UNK,  /*  150  09/06  C1 SPA                            =>  UNK     */
  340. UNK,  /*  151  09/07  C1 EPA                            =>  UNK     */
  341. UNK,  /*  152  09/08  C1                                =>  UNK     */
  342. UNK,  /*  153  09/09  C1                                =>  UNK     */
  343. UNK,  /*  154  09/10  C1                                =>  UNK     */
  344. UNK,  /*  155  09/11  C1 CSI                            =>  UNK     */
  345. UNK,  /*  156  09/12  C1 ST                             =>  UNK     */
  346. UNK,  /*  157  09/13  C1 OSC                            =>  UNK     */
  347. UNK,  /*  158  09/14  C1 PM                             =>  UNK     */
  348. UNK,  /*  159  09/15  C1 APC                            =>  UNK     */
  349.  32,  /*  160  10/00  G1      No-break space            =>  SP      */
  350.  33,  /*  161  10/01  G1      Inverted exclamation      =>  !       */
  351.  99,  /*  162  10/02  G1      Cent sign                 =>  c       */
  352.  35,  /*  163  10/03  G1      Pound sign                =>  #       */
  353.  36,  /*  164  10/04  G1      Currency sign             =>  $       */
  354.  89,  /*  165  10/05  G1      Yen sign                  =>  Y       */
  355. 124,  /*  166  10/06  G1      Broken bar                =>  |       */
  356.  80,  /*  167  10/07  G1      Paragraph sign            =>  P       */
  357.  34,  /*  168  10/08  G1      Diaeresis                 =>  "       */
  358.  67,  /*  169  10/09  G1      Copyright sign            =>  C       */
  359.  97,  /*  170  10/10  G1      Feminine ordinal          =>  a       */
  360.  34,  /*  171  10/11  G1      Left angle quotation      =>  "       */
  361. 126,  /*  172  10/12  G1      Not sign                  =>  ~       */
  362.  45,  /*  173  10/13  G1      Soft hyphen               =>  -       */
  363.  82,  /*  174  10/14  G1      Registered trade mark     =>  R       */
  364.  95,  /*  175  10/15  G1      Macron                    =>  _       */
  365. 111,  /*  176  11/00  G1      Degree sign, ring above   =>  o       */
  366. UNK,  /*  177  11/01  G1      Plus-minus sign           =>  UNK     */
  367.  50,  /*  178  11/02  G1      Superscript two           =>  2       */
  368.  51,  /*  179  11/03  G1      Superscript three         =>  3       */
  369.  39,  /*  180  11/04  G1      Acute accent              =>  '       */
  370. 117,  /*  181  11/05  G1      Micro sign                =>  u       */
  371.  45,  /*  182  11/06  G1      Pilcrow sign              =>  -       */
  372.  45,  /*  183  11/07  G1      Middle dot                =>  -       */
  373.  44,  /*  184  11/08  G1      Cedilla                   =>  ,       */
  374.  49,  /*  185  11/09  G1      Superscript one           =>  1       */
  375. 111,  /*  186  11/10  G1      Masculine ordinal         =>  o       */
  376.  34,  /*  187  11/11  G1      Right angle quotation     =>  "       */
  377. UNK,  /*  188  11/12  G1      One quarter               =>  UNK     */
  378. UNK,  /*  189  11/13  G1      One half                  =>  UNK     */
  379. UNK,  /*  190  11/14  G1      Three quarters            =>  UNK     */
  380.  63,  /*  191  11/15  G1      Inverted question mark    =>  ?       */
  381.  65,  /*  192  12/00  G1      A grave                   =>  A       */
  382.  65,  /*  193  12/01  G1      A acute                   =>  A       */
  383.  65,  /*  194  12/02  G1      A circumflex              =>  A       */
  384.  65,  /*  195  12/03  G1      A tilde                   =>  A       */
  385.  65,  /*  196  12/04  G1      A diaeresis               =>  A       */
  386.  65,  /*  197  12/05  G1      A ring above              =>  A       */
  387.  65,  /*  198  12/06  G1      A with E                  =>  A       */
  388.  67,  /*  199  12/07  G1      C Cedilla                 =>  C       */
  389.  69,  /*  200  12/08  G1      E grave                   =>  E       */
  390.  69,  /*  201  12/09  G1      E acute                   =>  E       */
  391.  69,  /*  202  12/10  G1      E circumflex              =>  E       */
  392.  69,  /*  203  12/11  G1      E diaeresis               =>  E       */
  393.  73,  /*  204  12/12  G1      I grave                   =>  I       */
  394.  73,  /*  205  12/13  G1      I acute                   =>  I       */
  395.  73,  /*  206  12/14  G1      I circumflex              =>  I       */
  396.  73,  /*  207  12/15  G1      I diaeresis               =>  I       */
  397.  68,  /*  208  13/00  G1      Icelandic Eth             =>  D       */
  398.  78,  /*  209  13/01  G1      N tilde                   =>  N       */
  399.  79,  /*  210  13/02  G1      O grave                   =>  O       */
  400.  79,  /*  211  13/03  G1      O acute                   =>  O       */
  401.  79,  /*  212  13/04  G1      O circumflex              =>  O       */
  402.  79,  /*  213  13/05  G1      O tilde                   =>  O       */
  403.  79,  /*  214  13/06  G1      O diaeresis               =>  O       */
  404. 120,  /*  215  13/07  G1      Multiplication sign       =>  x       */
  405.  79,  /*  216  13/08  G1      O oblique stroke          =>  O       */
  406.  85,  /*  217  13/09  G1      U grave                   =>  U       */
  407.  85,  /*  218  13/10  G1      U acute                   =>  U       */
  408.  85,  /*  219  13/11  G1      U circumflex              =>  U       */
  409.  85,  /*  220  13/12  G1      U diaeresis               =>  U       */
  410.  89,  /*  221  13/13  G1      Y acute                   =>  Y       */
  411.  84,  /*  222  13/14  G1      Icelandic Thorn           =>  T       */
  412. 115,  /*  223  13/15  G1      German sharp s            =>  s       */
  413.  97,  /*  224  14/00  G1      a grave                   =>  a       */
  414.  97,  /*  225  14/01  G1      a acute                   =>  a       */
  415.  97,  /*  226  14/02  G1      a circumflex              =>  a       */
  416.  97,  /*  227  14/03  G1      a tilde                   =>  a       */
  417.  97,  /*  228  14/04  G1      a diaeresis               =>  a       */
  418.  97,  /*  229  14/05  G1      a ring above              =>  a       */
  419.  97,  /*  230  14/06  G1      a with e                  =>  a       */
  420.  99,  /*  231  14/07  G1      c cedilla                 =>  c       */
  421. 101,  /*  232  14/08  G1      e grave                   =>  e       */
  422. 101,  /*  233  14/09  G1      e acute                   =>  e       */
  423. 101,  /*  234  14/10  G1      e circumflex              =>  e       */
  424. 101,  /*  235  14/11  G1      e diaeresis               =>  e       */
  425. 105,  /*  236  14/12  G1      i grave                   =>  i       */
  426. 105,  /*  237  14/13  G1      i acute                   =>  i       */
  427. 105,  /*  238  14/14  G1      i circumflex              =>  i       */
  428. 105,  /*  239  14/15  G1      i diaeresis               =>  i       */
  429. 100,  /*  240  15/00  G1      Icelandic eth             =>  d       */
  430. 110,  /*  241  15/01  G1      n tilde                   =>  n       */
  431. 111,  /*  242  15/02  G1      o grave                   =>  o       */
  432. 111,  /*  243  15/03  G1      o acute                   =>  o       */
  433. 111,  /*  244  15/04  G1      o circumflex              =>  o       */
  434. 111,  /*  245  15/05  G1      o tilde                   =>  o       */
  435. 111,  /*  246  15/06  G1      o diaeresis               =>  o       */
  436.  47,  /*  247  15/07  G1      Division sign             =>  /       */
  437. 111,  /*  248  15/08  G1      o oblique stroke          =>  o       */
  438. 117,  /*  249  15/09  G1      u grave                   =>  u       */
  439. 117,  /*  250  15/10  G1      u acute                   =>  u       */
  440. 117,  /*  251  15/11  G1      u circumflex              =>  u       */
  441. 117,  /*  252  15/12  G1      u diaeresis               =>  u       */
  442. 121,  /*  253  15/13  G1      y acute                   =>  y       */
  443. 116,  /*  254  15/14  G1      Icelandic thorn           =>  t       */
  444. 121   /*  255  15/15  G1      y diaeresis               =>  y       */
  445. }
  446. ;
  447.  
  448. /* Translation tables for ISO Latin Alphabet 1 to local file character sets */
  449.  
  450. CHAR
  451. yl1aq[] = {  /* Latin-1 to Extended Mac Latin (based on Apple QuickDraw) */
  452.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  453.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  454.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  455.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  456.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  457.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  458.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  459. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  460. 182, 183, 184, 185, 189, 196, 197, 198, 206, 207, 210, 211, 217, 218, 195, 212,
  461. 209, 215, 213, 226, 227, 228, 240, 245, 246, 247, 249, 250, 251, 253, 254, 255,
  462. 202, 193, 162, 163, 219, 180, 201, 164, 172, 169, 187, 199, 194, 208, 168, 248,
  463. 161, 177, 170, 173, 171, 181, 166, 225, 252, 176, 188, 200, 178, 179, 186, 192,
  464. 203, 231, 229, 204, 128, 129, 174, 130, 233, 131, 230, 232, 237, 234, 235, 236,
  465. 220, 132, 241, 238, 239, 205, 133, 165, 175, 244, 242, 243, 134, 160, 222, 167,
  466. 136, 135, 137, 139, 138, 140, 190, 141, 143, 142, 144, 145, 147, 146, 148, 149,
  467. 221, 150, 152, 151, 153, 155, 154, 214, 191, 157, 156, 158, 159, 224, 223, 216
  468. };
  469.  
  470. /* Local file character sets to ISO Latin Alphabet 1 */
  471.  
  472. #ifdef COMMENT
  473. CHAR
  474. yasl1[] = {  /* ASCII to Latin-1 */
  475.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  476.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  477.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  478.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  479.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  480.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  481.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  482. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127
  483. };
  484. #endif /* COMMENT */
  485.  
  486. CHAR
  487. yaql1[] = {  /* Extended Mac Latin (based on Apple Quickdraw) to Latin-1 */
  488.   0,   1,   2,   3,   4,   5,   6,   7,   8,   9,  10,  11,  12,  13,  14,  15,
  489.  16,  17,  18,  19,  20,  21,  22,  23,  24,  25,  26,  27,  28,  29,  30,  31,
  490.  32,  33,  34,  35,  36,  37,  38,  39,  40,  41,  42,  43,  44,  45,  46,  47,
  491.  48,  49,  50,  51,  52,  53,  54,  55,  56,  57,  58,  59,  60,  61,  62,  63,
  492.  64,  65,  66,  67,  68,  69,  70,  71,  72,  73,  74,  75,  76,  77,  78,  79,
  493.  80,  81,  82,  83,  84,  85,  86,  87,  88,  89,  90,  91,  92,  93,  94,  95,
  494.  96,  97,  98,  99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111,
  495. 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127,
  496. 196, 197, 199, 201, 209, 214, 220, 225, 224, 226, 228, 227, 229, 231, 233, 232,
  497. 234, 235, 237, 236, 238, 239, 241, 243, 242, 244, 246, 245, 250, 249, 251, 252,
  498. 221, 176, 162, 163, 167, 215, 182, 223, 174, 169, 178, 180, 168, 179, 198, 216,
  499. 185, 177, 188, 189, 165, 181, 128, 129, 130, 131, 190, 170, 186, 132, 230, 248,
  500. 191, 161, 172, 142, 133, 134, 135, 171, 187, 166, 160, 192, 195, 213, 136, 137,
  501. 173, 144, 138, 139, 143, 146, 247, 145, 255, 140, 141, 164, 208, 240, 222, 254,
  502. 253, 183, 147, 148, 149, 194, 202, 193, 203, 200, 205, 206, 207, 204, 211, 212,
  503. 150, 210, 218, 219, 217, 151, 152, 153, 175, 154, 155, 156, 184, 157, 158, 159
  504. };
  505.  
  506. /* Translation functions ... */
  507.  
  508. #ifdef COMMENT
  509. /*
  510.   Not needed...
  511. */
  512. CHAR                /* The identity translation function */
  513. ident(c) CHAR c; {
  514.     return(c);
  515. }
  516. #endif /* COMMENT */
  517.  
  518. /* Latin-1 to US ASCII... */
  519. CHAR
  520. #ifdef CK_ANSIC
  521. xl1as(CHAR c) 
  522. #else
  523. xl1as(c) CHAR c; 
  524. #endif /* CK_ANSIC */
  525. { /* xl1as */
  526.     switch(langs[language].id) {
  527.  
  528.       case L_DUTCH:
  529.     if (c == 255) {            /* Dutch umlaut-y */
  530.         zmstuff('j');        /* becomes ij */
  531.         return('i');
  532.     } else return(yl1as[c]);    /* all others by the book */
  533.  
  534.       case L_GERMAN:
  535.     switch (c) {            /* German, special rules. */
  536.       case 196:            /* umlaut-A -> Ae */
  537.         zmstuff('e');
  538.         return('A');
  539.       case 214:            /* umlaut-O -> Oe */
  540.         zmstuff('e');
  541.         return('O');
  542.       case 220:            /* umlaut-U -> Ue */
  543.         zmstuff('e');
  544.         return('U');
  545.       case 228:            /* umlaut-a -> ae */
  546.         zmstuff('e');
  547.         return('a');
  548.       case 246:            /* umlaut-o -> oe */
  549.         zmstuff('e');
  550.         return('o');
  551.       case 252:            /* umlaut-u -> ue */
  552.         zmstuff('e');
  553.         return('u');
  554.       case 223:            /* ess-zet -> ss */
  555.         zmstuff('s');
  556.         return('s');
  557.       default: return(yl1as[c]);    /* all others by the book */
  558.     }
  559.       case L_DANISH:
  560.       case L_FINNISH:
  561.       case L_NORWEGIAN:
  562.       case L_SWEDISH:
  563.     switch (c) {            /* Scandanavian languages. */
  564.       case 196:            /* umlaut-A -> Ae */
  565.           case 198:            /* AE ligature also -> Ae */
  566.         zmstuff('e');
  567.         return('A');
  568.       case 214:            /* umlaut-O -> Oe */
  569.       case 216:            /* O-slash -> Oe */
  570.         zmstuff('e');
  571.         return('O');
  572.       case 220:            /* umlaut-U -> Ue */
  573.       /*  return('Y'); replaced by "Ue" by popular demand. */
  574.           /*  Y for Umlaut-U is only used in German names. */
  575.         zmstuff('e');
  576.         return('U');
  577.       case 228:            /* umlaut-a -> ae */
  578.           case 230:            /* ditto for ae ligature */
  579.         zmstuff('e');
  580.         return('a');
  581.       case 246:            /* umlaut-o -> oe */
  582.       case 248:            /* o-slash -> oe */
  583.         zmstuff('e');
  584.         return('o');
  585.       case 252:            /* umlaut-u -> ue */
  586.       /*  return('y'); replaced by "ue" by popular demand. */
  587.         zmstuff('e');
  588.         return('u');
  589.       case 197:            /* A-ring -> Aa */
  590.         zmstuff('a');
  591.         return('A');
  592.           case 229:            /* a-ring -> aa */
  593.         zmstuff('a');
  594.         return('a');
  595.       default: return(yl1as[c]);    /* All others by the book */
  596.     }
  597.       case L_ICELANDIC:            /* Icelandic. */
  598.     switch (c) {    
  599.       case 198:            /* uppercase AE -> AE */
  600.         zmstuff('e');
  601.         return('A');
  602.       case 208:            /* uppercase Eth -> D */
  603.         return('D');
  604.       case 222:            /* uppercase Thorn -> Th */
  605.         zmstuff('h');
  606.         return('T');
  607.       case 230:            /* lowercase ae -> ae */
  608.         zmstuff('e');
  609.         return('a');
  610.       case 240:            /* lowercase Eth -> d */
  611.         return('d');
  612.       case 254:            /* lowercase Thorn -> th */
  613.         zmstuff('h');
  614.         return('t');
  615.       default: return(yl1as[c]);    /* All others by the book */
  616.     }
  617.       default:
  618.     return(yl1as[c]);        /* None of the above, by the table. */
  619.     }
  620. }
  621.  
  622. /* Translation functions for receiving files and translating them into ASCII */
  623.  
  624. CHAR
  625. zl1as(c) CHAR c; {
  626.     switch(langs[language].id) {
  627.  
  628.       case L_DUTCH:
  629.     if (c == 255) {            /* Dutch umlaut-y */
  630.         zdstuff('j');        /* becomes ij */
  631.         return('i');
  632.     } else return(yl1as[c]);    /* all others by the book */
  633.  
  634.       case L_GERMAN:
  635.     switch (c) {            /* German, special rules. */
  636.       case 196:            /* umlaut-A -> Ae */
  637.         zdstuff('e');
  638.         return('A');
  639.       case 214:            /* umlaut-O -> Oe */
  640.         zdstuff('e');
  641.         return('O');
  642.       case 220:            /* umlaut-U -> Ue */
  643.         zdstuff('e');
  644.         return('U');
  645.       case 228:            /* umlaut-a -> ae */
  646.         zdstuff('e');
  647.         return('a');
  648.       case 246:            /* umlaut-o -> oe */
  649.         zdstuff('e');
  650.         return('o');
  651.       case 252:            /* umlaut-u -> ue */
  652.         zdstuff('e');
  653.         return('u');
  654.       case 223:            /* ess-zet -> ss */
  655.         zdstuff('s');
  656.         return('s');
  657.       default: return(yl1as[c]);    /* all others by the book */
  658.     }
  659.       case L_DANISH:
  660.       case L_FINNISH:
  661.       case L_NORWEGIAN:
  662.       case L_SWEDISH:
  663.     switch (c) {            /* Scandanavian languages. */
  664.       case 196:            /* umlaut-A -> Ae */
  665.         zdstuff('e');
  666.         return('A');
  667.       case 214:            /* umlaut-O -> Oe */
  668.       case 216:            /* O-slash -> Oe */
  669.         zdstuff('e');
  670.         return('O');
  671.       case 220:            /* umlaut-U -> Y */
  672.         /* return('Y'); */
  673.         zdstuff('e');
  674.         return('U');
  675.       case 228:            /* umlaut-a -> ae */
  676.         zdstuff('e');
  677.         return('a');
  678.       case 246:            /* umlaut-o -> oe */
  679.       case 248:            /* o-slash -> oe */
  680.         zdstuff('e');
  681.         return('o');
  682.       case 252:            /* umlaut-u -> y */
  683.         /* return('y'); */
  684.         zdstuff('e');
  685.         return('u');
  686.       case 197:            /* A-ring -> Aa */
  687.         zdstuff('a');
  688.         return('A');
  689.           case 229:            /* a-ring -> aa */
  690.         zdstuff('a');
  691.         return('a');
  692.       default: return(yl1as[c]);    /* All others by the book */
  693.     }
  694.       default:
  695.     return(yl1as[c]);        /* Not German, by the table. */
  696.     }
  697. }
  698.  
  699. /* Apple Mac to ASCII */
  700. CHAR
  701. #ifdef CK_ANSIC
  702. xaqas(CHAR c) 
  703. #else
  704. xaqas(c) CHAR c; 
  705. #endif /* CK_ANSIC */
  706. { /* xaqas */
  707.     c = yaql1[c];            /* Translate to Latin-1 */
  708.     return(xl1as(c));            /* then to ASCII. */
  709. }
  710.  
  711. CHAR
  712. #ifdef CK_ANSIC
  713. xl1aq(CHAR c) 
  714. #else
  715. xl1aq(c) CHAR c; 
  716. #endif /* CK_ANSIC */
  717. { /* xl1aq */    /* Latin-1 to Apple Macintosh Character Set */
  718.     return(yl1aq[c]);
  719. }
  720.  
  721. /* Apple Macintosh Character Set to Latin-1 */
  722. CHAR
  723. #ifdef CK_ANSIC
  724. xaql1(CHAR c) 
  725. #else
  726. xaql1(c) CHAR c; 
  727. #endif /* CK_ANSIC */
  728. { /* xaql1 */
  729.     return(yaql1[c]);
  730. }
  731.  
  732. /*
  733.   Table of translation functions for receiving files.
  734.   Array of pointers to functions for translating from the transfer
  735.   syntax to the local file character set.  The first index is the
  736.   transfer syntax character set number, the second index is the file 
  737.   character set number.
  738. */
  739. #ifdef CK_ANSIC
  740. CHAR (*xlr[MAXTCSETS+1][MAXFCSETS+1])(CHAR) =
  741. #else
  742. CHAR (*xlr[MAXTCSETS+1][MAXFCSETS+1])() =
  743. #endif /* CK_ANSIC */
  744. {
  745.     NULL,            /* 0,0 transparent to us ascii */
  746.     NULL,            /* 0,1 transparent to latin-1 */
  747.     NULL,            /* 0,2 transparent to Apple Quickdraw */
  748.     NULL,            /* 1,0 ascii to us ascii */
  749.     NULL,            /* 1,2 ascii to latin-1 */
  750.     NULL,            /* 1,3 ascii to Apple Quickdraw */
  751.     zl1as,            /* 2,0 latin-1 to us ascii */
  752.     NULL,            /* 2,1 latin-1 to latin-1 */
  753.     xl1aq            /* 2,2 latin-1 to Apple Quickdraw */
  754. };
  755.  
  756. /*
  757.   Translation functions for sending files.
  758.   Array of pointers to functions for translating from the local file
  759.   character set to the transfer syntax character set.  Indexed in the same
  760.   way as the xlr array above.
  761. */
  762. #ifdef CK_ANSIC
  763. CHAR (*xls[MAXTCSETS+1][MAXFCSETS+1])(CHAR) =
  764. #else
  765. CHAR (*xls[MAXTCSETS+1][MAXFCSETS+1])() =
  766. #endif /* CK_ANSIC */
  767. {
  768.  
  769.     NULL,            /* 0,0 us ascii to transparent */
  770.     NULL,            /* 0,1 latin-1 to transparent */
  771.     NULL,            /* 0,2 Apple Quickdraw to transparent */
  772.     NULL,            /* 1,0 ascii to ascii */
  773.     xl1as,            /* 1,2 latin-1 to ascii */
  774.     xaqas,            /* 1,3 Apple Quickdraw to ascii */
  775.     NULL,            /* 2,0 ascii to latin-1  */
  776.     NULL,            /* 2,1 latin-1 to latin-1 */
  777.     xaql1            /* 2,2 Apple Quickdraw to latin-1 */
  778. };
  779.